Night Owl 4/Night Owl's Shareware - PDSI-004-1 - Wayzata Technology (1990).iso/018a/remextra.lsp

Text File | 1991-04-26 | 2KB | 2 lines

(DEFUN C:REMEXTRA(/ Qj Q@ QQ Ql Q& Q1 Q# Q0 Q$ QO Q| Q% Q?j)(SETQ Q0(GETVAR"ucsicon"))(SETVAR"ucsicon"0)(SETQ QO(GETVAR"cmdecho"))(SETVAR"cmdecho"0)(SETQ Q|(GETVAR"ucsfollow"))(SETVAR"ucsfollow"0)(SETQ Q$ 0)(SETQ Q%(- 0 1))(SETQ Q?j(LIST 45 92 124 47 45 92 124 47))(SETQ Qj(ENTNEXT))(COMMAND"ucs""w")(WHILE Qj(SETQ Qj(ENTGET Qj))(IF(= Q% 7)(SETQ Q% 0)(SETQ Q%(+ Q% 1)))(PROMPT(STRCAT"\r"(CHR(NTH Q% Q?j))" Removed Lines = "(RTOS Q$ 2 0)))(IF(OR(=(CDR(ASSOC 0 Qj))"LINE")(=(CDR(ASSOC 0 Qj))"3DLINE"))(PROGN(SETQ Q@(SSGET"w"(TRANS(CDR(ASSOC 10 Qj))(CDR(ASSOC -1 Qj))1)(TRANS(CDR(ASSOC 11 Qj))(CDR(ASSOC -1 Qj))1)))(IF(>(SSLENGTH Q@)1)(PROGN(SSDEL(CDR(ASSOC -1 Qj))Q@)(COMMAND"ucs""za"(TRANS(CDR(ASSOC 10 Qj))(CDR(ASSOC -1 Qj))0)(TRANS(CDR(ASSOC 11 Qj))(CDR(ASSOC -1 Qj))0))(SETQ QQ 0)(REPEAT(SSLENGTH Q@)(SETQ Ql(ENTGET(SSNAME Q@ QQ)))(IF(OR(=(CDR(ASSOC 0 Qj))"LINE")(=(CDR(ASSOC 0 Qj))"3DLINE"))(PROGN(SETQ Q&(TRANS(CDR(ASSOC 10 Ql))(CDR(ASSOC -1 Ql))1))(SETQ Q1(TRANS(CDR(ASSOC 11 Ql))(CDR(ASSOC -1 Ql))1))(IF(AND(=(RTOS(ABS(NTH 0 Q&))2 3)"0.000")(=(RTOS(ABS(NTH 1 Q&))2 3)"0.000")(=(RTOS(ABS(NTH 0 Q1))2 3)"0.000")(=(RTOS(ABS(NTH 1 Q1))2 3)"0.000"))(PROGN(ENTDEL(CDR(ASSOC -1 Ql)))(SETQ Q$(+ Q$ 1))(IF(= Q% 7)(SETQ Q% 0)(SETQ Q%(+ Q% 1)))(PROMPT(STRCAT"\r"(CHR(NTH Q% Q?j))" Removed Lines = "(RTOS Q$ 2 0)))))))(SETQ QQ(+ QQ 1)))(COMMAND"ucs""w")))))(SETQ Qj(ENTNEXT(CDR(ASSOC -1 Qj)))))(REDRAW)(SETVAR"ucsicon"Q0)(SETVAR"cmdecho"QO)(SETVAR"ucsfollow"Q|)(PROMPT(STRCAT"\rRemoved Lines = "(RTOS Q$ 2 0)".""  Done."))(PRIN1))(PROMPT"\n ***********  C:REMEXTRA, VER 1.0, (c) Copyright CADD Masters 1991  ***********")(PRIN1)